0 REM << CD38-5 >>
1 REM COMMODARES PROBLEM #34-3
2 REM   DIGIT DECOMPOSITION
3 REM SOLUTION BY
4 REM   WALLACE LEEKER
5 REM
10 INPUT "NUMBER";X :IF X>1E10 THEN 10
20 FOR A=1 TO 9 : Y=INT(X/10)
30 N(A)=X-(Y*10) : SU=SU+N(A) : X=Y
40 NEXT A : B=10
50 (null) : B=B-1 : (null) (null) N(B)>0
55 IF B=1 THEN 80
60 (null) : PRINT N(B)"+"; : B=B-1
70 (null) (null) B=1
80 PRINT N(1)"=";SU